home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1133copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.5 KB  |  38 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1133"
  4. Company = "Berkeley Systems"
  5. title = "You Don't Know Jack"
  6. Price = 34.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "IBM CD-ROM"
  13. Title Description = "Wall-to-wall studio sound effects, original music and its sarcastic host will whisk you from the green room to trivia prime-time at a pace so fast it'll chap your lips on the quiz show where high-culture and pop-culture collide. Includes over 800 questions with 20 hours of non-repetitive verbal abuse. 1, 2, or 3 players can duke it out on one keyboard. Tournament setting lets you play a round robin with 4 to 225 of your closest friends (really)."
  14.  
  15. -------------------------------------
  16. dline = ""
  17. counter = 0
  18. repeat while dline <> title number
  19. counter = counter + 1
  20. dline = GetWord(1,   GetLine(titl,counter) )   
  21. test(dline = title number, LineInTitle = counter)
  22. end repeat 
  23. starttitle = LineInTitle
  24. num of titles shown = 6
  25. endtitle = starttitle + num of titles shown - 1
  26. titles = ""
  27. title highlight = ""
  28. repeat with counter = starttitle to endtitle
  29. nextline = GetLine(titl,counter)
  30. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  31. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  32. end repeat
  33. dpage = CurrentPageID
  34.  
  35. newtitle = FALSE
  36. end if
  37.  
  38.